home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / PMAKER65 / archive.z / ELIMINAR MAESTRAS SIN USAR....SPT < prev    next >
Text File  |  1997-01-23  |  2KB  |  83 lines
  1. -- Remove Unused Master Pages...
  2. -- 1 Oct 96, vs
  3.  
  4. -- Este gui≤n le permitirß eliminar alguna o todas las  
  5. -- pßginas maestras que no estΘn aplicadas a lo largo
  6. -- del documento.
  7.  
  8. set 0=>endScript
  9. repeat
  10. getpagenumber => page0
  11. getpagenumbers =>first,nPages,...
  12. set => usedMP
  13. loop p=first,first+nPages-1
  14.     page p
  15.     getmasterpage => lmp,rmp
  16.     if not(lmp?usedMP)*not(lmp="")
  17.         set usedMP,lmp=>usedMP
  18.     endif
  19.     if not(rmp?usedMP)*not(rmp="")
  20.         set usedMP,rmp=>usedMP
  21.     endif
  22. endloop
  23. page page0
  24. getmasterpagelist =>M, MPList
  25. set =>unusedMP
  26. loop m=1,M
  27.     set MPList=> ...,name,MPList    
  28.     if not(name?usedMP)*not(name="Pßg. maestra doc.")
  29.         set unusedMP,name=>unusedMP
  30.     endif
  31. endloop
  32. if empty(unusedMP)
  33.     message "No hay pßginas maestras sin utilizar en el documento."
  34.     return
  35. endif
  36. set 0=>closeDLG
  37. getplatform >> platform
  38. repeat
  39. if platform = WINDOWS
  40. dialogbegin -70,-50,80,40,"Pßginas maestras sin utilizar"
  41.     pushbutton 90,10,145,24,"Eliminar todas"
  42.     pushbutton 90,30,145,44,"Eliminar"
  43.     pushbutton 90,50,145,64,"Cancelar"
  44.     listbox 10,10,80,80,unusedMP
  45. dialogend => r
  46. endif
  47. if platform = MACINTOSH
  48. dialogbegin -150,-100,150,60,"Pßginas maestras sin utilizar"
  49.     pushbutton 200,20,280,50,"Eliminar todas"
  50.     pushbutton 200,60,280,90,"Eliminar"
  51.     pushbutton 200,100,280,130,"Cancelar"
  52.     listbox 20,20,180,148,unusedMP
  53. dialogend => r
  54. endif
  55. --breakpoint
  56. set r=>buttonHit,...,...,...,name,...
  57. if empty(buttonHit)+(buttonHit="Cancelar")
  58.     return
  59. endif
  60. if buttonHit="Eliminar"
  61.     message "┐Eliminar el "+nombre+" de la pßgina maestra?"
  62.     getyesno => YESNO
  63.     if YESNO=YES
  64.         deletemasterpage name
  65.         set 1=>closeDLG
  66.     endif
  67. endif
  68. if buttonHit="Eliminar todas"
  69.     message "┐Eliminar todas las pßginas maestras sin utilizar?"
  70.     getyesno => YESNO
  71.     if YESNO=YES
  72.         while not(empty(unusedMP))
  73.             set unusedMP=>name,unusedMP
  74.             deletemasterpage name
  75.         endwhile
  76.         set 1=>closeDLG
  77.         set 1=>endScript
  78.     endif
  79. endif
  80. until closeDLG
  81. until endScript
  82. return 
  83.